PC Answers 1995 December/PC Answers December 1995 (disc errors).iso/mxc/eqboot.dir/00005_Script_MS for EQBOOT

Text File | 1995-04-23 | 2KB | 77 lines

global fixPal, myLine, csn, lem, palName, bd, tpal, myLine2, gDIrMovie, gBackColor, gForeColor

on startMovie
  if the machineType < 256 then
    openXlib "XPALETTE"
    set fixPal = fixPalette(mNew,the stageleft,the stagetop,the stageright,the stagebottom)
  else
    openXlib "XPALETTE.dll"
    set fixPal = xPalette(mNew)
  end if
  -- THIS COLORDEPTH CODE WILL CHANGE ACCORDING TO THE INTERFACE PAL COLORS
  if the colorDepth = 8 then
    set gBackColor = 31  -- dark aqua
    set gForeColor = 255   -- black
  end if
  if the colorDepth = 16 then
    if the machineType > 256 then
      set gBackColor = 729
      set gForeColor = 0
    else
      set gBackColor = 31
      set gForeColor = 255
    end if
  end if
  if the colorDepth = 32 then
    set gBackColor = 46542
    set gForeColor = 0
  end if
  set auto = 0
  set ok = 3
  set myLine = 1
  set myLine2 = 1
  put 201 into tpal
  set csn = the number of lines in field "asset list"
  cursor 0
  colorMe
  txtHandler
end

on txtHandler
  global myLine

  put the text of cast (myLine + 50) into field "Desc"
  set the castNum of sprite 10 to (myLine + 100)
  updateStage
end

on colorMe
  set the forecolor of field "asset list" to gForeColor
  if myLine = -1 then
    set the forecolor of field "asset list" to gForeColor
    exit
  end if
  set the forecolor of line myLine of field "asset list" to gBackColor
end

on patchPal
  fixPal(mPatchIt)
end

on stopMovie
  fixPal(mDispose)
  if the machineType < 256 then closeXlib "XPALETTE"
  else closeXlib "XPALETTE.dll"
end

-- NOT PRESENTLY BEING USED
on flushMe
  if the machineType = 256 then
    OpenXlib "GLOBMEM"
    Set OBJ = GLOBMEM(mNew)
    OBJ(mFreeHandles, 8192)
    OBJ(mFreeHandles, 8192)
    OBJ(mFreeHandles, 8192)
    OBJ(mDispose)
  end if
end